//ABLMSC2   JOB (ABLMSC,B095SC),'10MIS-BLAKE X3659',                    00010000
//        CLASS=T,MSGCLASS=T,NOTIFY=ABLMSC                              00020000
//**                                                                    00030000
/*JOBPARM     L=999,T=99,LINECT=0                                       00040000
//**                                                                    00050000
//**                                                                    00060000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00070000
//*   +            J  2  8  1  S  C  Q  R - AD HOC         +            00080000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00090000
//*   +  SUMMARY: GL ACCT SUMMARY.                         +            00100000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00110000
//*   +  CHANGE LOG:                                       +            00120000
//*   +  XX/XX/XX  : IMPLEMENTED.                          +            00130000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00140000
//**                                                                    00150000
//STEP1010 EXEC PGM=IDCAMS                                              00160000
//SYSPRINT DD SYSOUT=*                                                  00170000
//SYSIN    DD *                                                         00180000
  DELETE 'ABLMSC.GL.SUMMARY.RPT02'                                      00190000
  SET MAXCC = 0                                                         00200000
//**                                                                    00210000
//STEP020     EXEC SAS                                                  00220000
//**                                                                    00230000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00240000
//*   +                                                    +            00250000
//*   +  STEP020 ABEND INSTRUCTIONS:                       +            00260000
//*   +  UNCATLG DSNS: NONE                                +            00270000
//*   +  GDG CHANGES : NONE                                +            00280000
//*   +  RESTORE     : NONE                                +            00290000
//*   +  REFERBACKS  : NONE                                +            00300000
//*   +  RESTART AT  : STEP010                             +            00310000
//*   +                                                    +            00320000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00330000
//*   +       EXTRACT GL SUMMARY YTD COUNTS.  ** SC  **    +            00340000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00350000
//**                                                                    00360000
//FT12F001    DD DSN=ABLMSC.GL.SUMMARY.RPT02,                           00370000
//            DISP=(NEW,CATLG,DELETE),                                  00380000
//            UNIT=DISK,                                                00390000
//            SPACE=(CYL,(1,1),RLSE),                                   00400000
//            DCB=(MODEL.DSCB,RECFM=FBA,LRECL=133,                      00410000
//            BLKSIZE=0)                                                00420000
//**                                                                    00430000
//FG111       DD DSN=J231SC.MASTER.DISKCOPY,                            00440000
//            DISP=SHR                                                  00450000
//**                                                                    00460000
//SYSIN       DD *                                                      00470000
*--------------------------------------------------------------*;       00480000
*  CHANGELOG:                                                  *;       00490000
*--------------------------------------------------------------*;       00500000
                                                                        00510000
*--------------------------------------------------------------*;       00520000
*           EXTRACT         G/L           ACTVITY.             *;       00530000
*--------------------------------------------------------------*;       00540000
 DATA G111;                                                             00550000
 INFILE   FG111;                                                        00560000
 INPUT    @01  STATUS      $1.                                          00570000
          @11  ACCSUB2     $2.                                          00590000
          @13  ACCDEP2     $2. @;                                       00600000
 IF ACCSUB2 = '3L' OR ACCSUB2 = '5D'                                    00610000
 OR  ACCSUB2 = '63' OR ACCSUB2 = '95';                                  00611000
 INPUT    @02  ACCLOC      $2.                                          00620000
          @04  ACCDIV      $2.                                          00621000
          @06  ACCPRIME    $4.                                          00622000
          @10  ACCSUB      $3.                                          00623000
          @11  ACCSUB2     $2.                                          00624000
          @13  ACCDEP      $4.                                          00625000
          @32  ACCDESC     $30.                                         00626000
          @255 BEGNMO      PD8.2                                        00627000
          @263 CURRMO      PD8.2                                        00628000
          @311 PD01        PD8.2                                        00629000
          @319 PD02        PD8.2                                        00630000
          ;                                                             00640000
 IF       BEGNMO > 0 OR BEGNMO < 0 OR CURRMO > 0 OR CURRMO < 0;         00670000
 ENDGMO   = (BEGNMO + CURRMO);                                          00680000
                                                                        00690000
*------- REPORTS 01 THRU 03 -------------------;                        00691000
 TITLE1 "                                           ";                  00692000
 TITLE2 "REPORT   : 01 FOR PERIOD-     FISCAL-      " ;                 00693000
 TITLE3 "SUMMARY  : GEN LEDGER                      ";                  00694000
 TITLE4 "         :                                 ";                  00695000
                                                                        00696000
*PROC FREQ;                                                             00697000
*  TABLES ACCLOC  ;                                                     00698000
*  TABLES ACCDEP  ;                                                     00699000
*  TABLES ACCDIV  ;                                                     00700000
*  TABLES ACCSUB  ;                                                     00710000
*RUN;                                                                   00720000
                                                                        00730000
                                                                        00740000
 TITLE1 "                                           ";                  00750000
 TITLE2 "REPORT   : 01 FOR PERIOD-     FISCAL-      " ;                 00760000
 TITLE3 "SUMMARY  : GEN LEDGER                      ";                  00770000
 TITLE4 "         :                                 ";                  00780000
                                                                        00790000
 PROC TABULATE FORMAT=COMMA16.2 MISSING;                                00800000
   VAR   CURRMO ENDGMO;                                                 00810000
   CLASS ACCLOC ACCSUB ACCPRIME;                                        00820000
   TABLE (ACCSUB ALL)*(ACCPRIME)*(ACCLOC),                              00830000
          CURRMO ENDGMO / RTS=30                                        00840000
   BOX='SUMMARY BY PRIME   ';                                           00850000
   KEYLABEL SUM='TOTAL';                                                00860000
 RUN;                                                                   00870000
                                                                        00880000
//**                                                                    00890000
//LAST040     EXEC DFSORT                                               00900000
//**                                                                    00910000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00920000
//*   +  CREATE BTP JVS PRROF AND PRE-EDIT RPTS.           +            00930000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00940000
//**                                                                    00950000
//SORTIN      DD DSN=ABLMSC.GL.SUMMARY.RPT02,                           00960000
//            DISP=SHR                                                  00970000
//SORTOUT     DD SYSOUT=T,                                              00980000
//            DEST=FIN                                                  00990000
//SYSIN       DD *                                                      01000000
  SORT FIELDS=COPY                                                      01010000
//**                                                                    01020000
//**************************   END OF JOB   **************************  01030000
